home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
fglqbx10.zip
/
11-05.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
762b
|
47 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
Status = SETMEM(-1*(64000+16))
NewMode = FGbestmode(320,200,2)
IF NewMode < 0 OR NewMode = 12 THEN
PRINT "This program requires a 320 x 200 color graphics mode."
STOP
END IF
OldMode = FGgetmode
FGsetmode NewMode
Status = FGallocate(1)
FGsethpage 1
FGsetcolor 9
FGrect 0, 319, 0, 199
FGsetcolor 15
FGrect 132, 188, 50, 150
FGsetcolor 10
FGmove 160, 67
FGdraw 175, 107
FGdraw 140, 82
FGdraw 180, 82
FGdraw 145, 107
FGdraw 160, 67
FGpaint 160, 77
FGpaint 150, 87
FGpaint 160, 87
FGpaint 170, 87
FGpaint 155, 97
FGpaint 165, 97
WHILE INKEY$ = ""
FGwaitfor 1
FGscroll 136, 184, 50, 150, -4, 0
WEND
FGwaitkey
Status = FGfreepage(1)
FGsetmode OldMode
FGreset
END